﻿Imports Alquilaqi

Public Class ReservaListar
    Private Sub ReservaListar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'aqui es cuando ni bien se abre el MDI aparesca los elementos que quieras

        With Me.dgvReservas.ColumnHeadersDefaultCellStyle
            .BackColor = Color.Red
            .ForeColor = Color.White

        End With

    End Sub

    Private Sub btnListar_Click_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar_Click.Click
        Dim criterio As String = Me.txtBuscar.Text
        'MsgBox(criterio)

        Dim negocio As New ReservaNegocio
        Dim reservas As Collection = negocio.buscarPorNombre(criterio)
        Me.dgvReservas.DataSource = reservas      ' el coleccion lo mostramos en el datagriew  "dgvCategorias"
        Me.dgvReservas.EditMode = False

        If reservas.Count > 0 Then
            Me.dgvReservas.Columns(0).Visible = False
            Me.dgvReservas.Columns(1).HeaderText = "N. Estudiante"
            Me.dgvReservas.Columns(2).HeaderText = "Tipo Inmueble"
            Me.dgvReservas.Columns(3).HeaderText = "Fecha Inicio"
            Me.dgvReservas.Columns(4).HeaderText = "Fecha Fin"
            Me.dgvReservas.Columns(5).HeaderText = "Fecha de confirmación"
            Me.dgvReservas.Columns(6).HeaderText = "Tipo de pago"
        End If
        'Me.dgvReservas.Columns(1).Visible = False


    End Sub
End Class